home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr01
/
jock.zip
/
TOTDEM11.ZIP
/
EXTDEM7.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-02-11
|
1KB
|
71 lines
Program ExtendedDemoSeven;
{EXTDEM7 - this program shows how to use the BooleanIOOBJ created
in the unit ExtIO. The demo is an adaptation of DEMIO2}
Uses DOS,CRT,
totFAST, totIO1, totIO2, extIO;
Var
Name: LateralIOOBJ;
Phone: PictureIOOBJ;
Price: FixedRealIOOBJ;
Status: BooleanIOOBJ;
Keys: ControlkeysIOOBJ;
Manager: FormOBJ;
Result: tAction;
procedure InitVars;
{}
begin
with Name do
begin
Init(35,5,20,40);
SetLabel('Vendor Name');
end;
with Phone do
begin
Init(35,7,'(###) ###-####');
SetLabel('Tel');
SetRules(JumpIfFull);
end;
with Price do
begin
Init(35,9,8,2);
SetLabel('Unit Price');
SetValue(250.0);
SetMinMax(0.1,12250.0);
SetRules(EraseDefault);
end;
with Status do
begin
Init(35,11,' Nice Guy ',' Jerk ');
SetLabel('Category');
end;
Keys.Init;
end; {InitVars}
begin
ClrScr;
Screen.TitledBox(15,3,65,13,76,79,78,2,' Quicky Input Demo ');
Screen.WriteCenter(25,white,'Press TAB to switch fields and press ESC or F10 to end');
InitVars;
with Manager do
begin
Init;
AddItem(Keys);
AddItem(Name);
AddItem(Phone);
AddItem(Price);
AddItem(Status);
Result := Go;
if Result = Finished then
{update the database..}
else
{call Esc routine};
end;
end.